<%

Function rodada_novo_jogo(id_rodada, data, clube_1, clube_2, campeonato)

		
		str = "SELECT total_jogos from rodadas where simulacao=0 and completa=0 and id="&id_rodada
  		Set rs = conexao_geral.Execute(str)	
		
		If not rs.eof then
		
			DIM nova_posicao, total_jogos
			
			str = "SELECT posicao from rodadas_jogos where id_rodada="&id_rodada&" AND data>'"&data&"' order by data asc"
  			Set rs2 = conexao_geral.Execute(str)
			
			posicao = rs("total_jogos")+1
			if not rs2.eof then	posicao = rs2("posicao")
			
			str = "SELECT posicao from rodadas_jogos where id_rodada="&id_rodada&" and posicao>="&posicao&" order by posicao desc"
  			Set rs2 = conexao_geral.Execute(str)	
			
			DO while not rs2.eof 
			
				posicao = rs2("posicao")
				nova_posicao = posicao+1
				
				rodada_alterar_jogo_posicao id_rodada, nova_posicao, (nova_posicao-1)
			
			rs2.MoveNext
			Loop

			
			str = "INSERT into rodadas_jogos "
			str = str & "(id_rodada, posicao, data, campeonato, clube_1, clube_2) "
			str = str & "VALUES ('" & id_rodada &"', "
			str = str & "'" & posicao & "', "	
			str = str & "'" & data & "', "	
			str = str & "'" & campeonato & "', "				
			str = str & "'" & clube_1 & "', "		
			str = str & "'" & clube_2 & "')"	
			Set rsI = conexao_geral.Execute(str)

			nova_posicao = rs("total_jogos")+1
			
			str = "UPDATE rodadas SET "
			str = str & "total_jogos='"&nova_posicao&"' "
			str = str & " WHERE id="&id_rodada
			Set rsI = conexao_geral.Execute(str)
			
	 End If

End Function
%>
